home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / BUSINESS / D_SHOW20.ARJ / SHOW20A.EXE / SCROLL1.SHW < prev    next >
Text File  |  1991-08-01  |  862b  |  40 lines
  1. SET CURSOR OFF
  2. FOREGROUND 0
  3. BACKGROUND 3
  4.  
  5. ATTRIBUTE 48
  6.  
  7. DEFINE
  8. ///////   ///  ///  ///////     ///////    //////   ///////   //////
  9. //    //  // // //  //    //    //    //  //    //    //     //    //
  10. ////////  // // //  ///////     //    //  ////////    //     ////////
  11. //  //    // // //  //          //    //  //    //    //     //    //
  12. //   //   //    //  //          ///////   //    //    //     //    //
  13. ENDDEFINE
  14.  
  15. CLEARSCREEN
  16.  
  17. GOXY 1 10
  18.  
  19. SPEAK "P-R-OO-G-R-A-M-M-EH-D"
  20. WAIT 1
  21. SPEAK "B-I"
  22.  
  23. DELAYFACTOR 5
  24.  
  25. MOTION RIGHT 72
  26.  
  27. VARIABLE scrollloop 1
  28.  
  29. MARK 1          * Set a mark to jump to
  30. SCROLL UP       * Move screen up
  31. WAIT 1
  32. INCREASE scrollloop 1
  33. IFVARIABLE scrollloop 8 DO JUMPMARK 2
  34. JUMPMARK 1      * If we've reached here, jump to mark 1
  35. MARK 2          * Set a mark to jump to
  36.  
  37. RELEASE scrollloop
  38.  
  39. SET CURSOR ON
  40.